#!/usr/bin/env perl

use utf8;
use strict;
use autodie;
use 5.010;

foreach my $arg (@ARGV){
	open my $fh_file, '<', $arg;

	my @all_line = <$fh_file>;

	say "The reverse line of $arg are:";

	foreach(reverse @all_line){
		print $_;
	}

	close $fh_file;
}
